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— Zap. mesa 

-- Edited by Sandman on September 12, 1977 9:06 AM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs". 
ImageDefs: FROM "imagedef s", 
InlineDefs: FROM "in! inedef s" , 
lODefs: FROM "iodefs". 
SegmentOefs: FROM "segmentdef s", 
StringDefs: FROM "stringdef s" , 
SymDefs: FROM "symdefs", 
SystemDefs: FROM "systemdef s" , 
TimeOefs: FROM "timedefs"; 

DEFINITIONS FROM lODefs, SegmentOefs; 

Zap: PROGRAM 

IMPORTS lODefs. SegmentOefs, StringDefs, SystemDefs, TimeDefs 

BEGIN 

name: STRING ^ [40]: 
filename: STRING ♦- [40]; 
file: FileHandle; 
c: STRING ♦- [10]; 

BcdBase: TYPE = POINTER TO BcdDefs. BCD; 

Confirm: PROCEDURE RETURNS [BOOLEAN] = 
BEGIN OPEN lODefs; 
WriteString[" [confirm]"]; 
DO 

SELECT ReadChar[] FROM 
CR => RETURN[TRUE]; 
DEL »> 
BEGIN 

WriteString[" XXX"]; 
RETURN[FALSE]; 
END; 
ENDCASE => WriteChar['?]; 
ENOLOOP; 
END; 

DisplayVersionStamp: PROCEDURE [stamp: BcdDefs. VersionStamp] = 
BEGIN OPEN lODefs; 
date: STRING *- [40]; 

TimeDefs . AppendDayTime[date, TimeDefs . UnpackDT[ stamp . time]] ; 

Wri teString[date] ; 

WriteString[", "]; 

Wri teOctal [stamp. net]; 

WriteChar[';^]; 

Wri teOctal [stamp. host] ; 

WriteChar['/^]; 

IF stamp. zapped THEN WriteStr ing[" zapped!!"]; 

END; 

FileZapper: PROCEDURE [bed: BcdBase] = 
BEGIN OPEN BcdDefs. StringDefs; 
f ti : FTIndex; 

ftb: CARDINAL = LOOPHOLE[bcd+bcd . f tOf f set] ; 
filename: STRING ^ [40]; 
ss: SubStringDescr iptor ; 
DO 

Wr J teString["f i lename: "]; 
IODefs.ReadTD[f i lename]; 
ir filename. length = THEN RETURN: 

ss ♦-[base: filename, offset: 0. length: fi lename . length] ; 
FOR fti ^ fIRST[fTTndex], f t i+SIZE[FTRecord ] 
UNTIl fti = bcd.ftLimit DO 
OPEN f : ftb + fti: 
If SameName[bcd , f . name .@ss] THEN 
BEGIN 

Wr i teStr. 1ng[" "]; 
D i sp 1 ayVers ionS tamp[f . vers ion] ; 
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IF Confirni[] THEN 

BEGIN f. version. zapped ♦• TRUE; 
WriteString[" ... is being zapped."]; END; 
EXIT; 
END; 
REPEAT 

FINISHED => WriteString[" . . . can't find filel"]; 
ENOLOOP; 
WriteChar[CR]; 
ENDLOOP; 
END; 

FindBcd: PROCEDURE [file: FileHandle] RETURNS [seg : Fi leSegmentHandle] = 
BEGIN 

pages: AltoDef s.PageCount; 
bed: BcdBase; 

seg ♦- NewFileSegment[f i le, 1, 1, Read+Write] ; 
Swapln[seg]; 

bed «- FileSegmentAddress[seg]; 
IF (pages ♦- bcd.nPages) # 1 THEN 

BEGIN 

Un1ock[seg]; 

MoveFileSegment[seg, 1. pages]; 

Swapln[seg]; 

bed ♦• FneSegmentAddress[seg] ; 

END; 
IF bed.versionident # BcdDef s . VersionID THEN 

BEGIN 

WriteString[" bad version ID "]; 

WriteDecimal [bed, versionident] ; 

Un1oek[seg]; 

De1eteFi1eSegment[seg] ; 

RETURN[NIL] 

END; 
END; 

FindSymbols: PROCEDURE [file: FileHandle] RETURNS [seg : Fi 1 eSegmentHandle] 
BEGIN 

bed: BedBase; 
mtb: CARDINAL: 

mti: BedDefs.MTIndex = FIRST[BcdDef s.MTIndex] ; 
pages: Al toDef s .PageCount; 
bedseg: Fi leSegmentHandle; 

bcdseg ♦• NewF i leSegment[f ile, 1, 1. Read+Write]; 

Swapln[bcdseg] ; 

bed ♦- FileSegmentAddress[bcdseg] ; 

IF (pages *- bed.nPages) if 1 THEN 

BEGIN 

Unlock[bcdseg] ; 

MoveFneSegment[bedseg , 1, pages]; 

Swapln[bedseg] ; 

bed ♦- Fi 1 eSegmentAddress[bcdseg] ; 

END; 
IF bed.versionident U BcdDef s .VersionID THEN 

BEGIN 

Wri teStri ng[" bad version ID "]; 

Wri teDecimal [bed. versionident]; 

Unlock[bcdseg] ; 

DeleteF i leSGgment[bcdseg] ; 

RFTURN[NTL] 

END; 
IF bcd.nModules U 1 THEN 

BFGIN 

Wr i teStr ing[" loo many modules: "]; 

Wr i teDec imal [bed . nModu 1 es] ; 

Un1ock[bcdseg] ; 

DeleteF i 1 eSegmen t[bcdseg] ; 

RrTURN[NIt ] 

fND; 
mtb *- LOOPHOl r[bcd,CARDINAl ]+bcd.mtOffset; 
seg ♦- F indSegment[bcdseg , (mtb+mt i ) . sseg , FALSE]; 
TF seg it NIL TIIFN Swapln[seg]; 
Unlock[bcdseg] ; 
Deleter i 1 eSegment[ bcdseg] ; 
FND; 
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FindSegment: PROCEDURE [seg: FileSegmentHandle, segdesc: BcdDefs .SegDesc, long: BOOLEAN] 
RETURNS [FileSegmentHandle] = 
BEGIN 

ss: StringDefs.SubStringOescriptor; 
file: SegmentOefs.FileHandle; 
name: STRING; 

bed: BcdBase ♦- FileSegmentAddress[seg]; 
IF segdesc. file = BcdDefs . FTNull THEN RETURN[NIL] 
ELSE IF segdesc. file = BcdDefs . FTSelf THEN file ♦• seg. file 
ELSE 

BEGIN OPEN f: LOOPHOLE[bcd+bcd . f tOf f set , CARDINAL]+segdesc. f ile; 

name *- SystemDef s.Al locateHeapString[f . name, length+4]; 

ss ♦- [LOOPHOLE[bcd+bcd.ssOffset. STRING], f. name. off set , f . name, length] ; 

StringOefs .AppendSubSt ring [name, Qss]; 

CheckForExtension[name, " .bed"]; 

file <- NewFile[name, Def aul tAccess, Def aultVersion]; 

SystemDefs .FreeHeapString[name]; 

END; 
RETURN[NewFileSegment[f ile, segdesc. base, 

segdesc. pages + (IF long THEN segdesc. extraPages ELSE 0), Read]]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] = 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] = ' . THEN RETURN; 

ENDLOOP; 
StringDef s.AppendString[name, ext] ; 
RETURN 
END; 

SameName: PROCEDURE [bed: BcdBase, n: BcdDefs .NameRecord, name: StringDef s .Substring] 
RETURNS [BOOLEAN] = 
BEGIN OPEN StringDefs; 
ss: SubStringDescriptor ♦• 

[base: LOOPHOLE[bcd+bcd.ssOffset]. offset: n. offset, length: n. length]; 
RETURN[StringDefs.EquivalentSubStrings[9ss,name]]; 
END; 

ZapFiles: PROCEDURE [file: FileHandle] = 
BEGIN 

bcdseg: FileSegmentHandle; 
bcd:BcdBase; 

bcdseg ♦• FindBcd[f i le]; 
IF bcdseg # NIL THEN 

BEGIN 

bed ^ FileSegmentAddress[bcdseg] ; 

Fi leZapper[bcd] ; 

Unlock[bcdseg] ; 

DeleteFileSegment[ bcdseg] ; 

END; 
END; 

ZapHeader: PROCEDURE [file: FileHandle] = 
BEGIN 

seg: FileSegmentHandle; 
bed: BcdBase; 

seg <- Newf jleSegment[f i le, 1, 1, Read+Write]; 
Swapln[seg]; 

bed *- F ileSegmentAddress[seg] ; 
Wr i teStr ing["Header : "]: 
SFLECT bed. vers ion Ident FROM 
BcdDefs .VersionID => 
BFGIN 

Displ ayVers ionS Lamp [bed .version] ; 
ir Confirm[] THCN 

BFCTN bed . vers ion . zapped ^ TRUE; 
Wr 1 teStr ing[" ... is being zapped."] END; 
FND; 
FNOCASF => 
BEGIN 

Wr i teStr ing[" bad version ID "]: 
Wr i LeOee imal [bed. vers ion ident] 
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END; 
Un1ock[seg]; 
Del eteFil eSegment[seg] ; 
END; 

ZapSymbols: PROCEDURE [file: FileHandle] = 
BEGIN 

seg: FileSegmentHandle; 
stHeader: POINTER TO SymDef s .STHeader; 
seg *• FindSymbo1s[f ile] ; 
IF seg J^ NIL THEN 

BEGIN 

StHeader ♦• Fi 1eSegmentAddress[seg] ; 

WriteString["Symbo1 Table: "]; 

Display\/ersionStamp[ StHeader .version]; 

IF Confirm[] THEN 

BEGIN StHeader. version. zapped ♦• TRUE; 
WriteString[" ... is being zapped."]; END; 

Unlock[seg]; 

DeleteFileSegment[seg]; 

END; 
END; 



~- main program 

WriteLine["Mesa Bed Zapper Use With Caution! !! I ! I"]; 

DO 

BEGIN ENABLE Rubout => 
BEGIN 

WriteString[" XXX'*]; 
GOTO repeatloop; 
END; 
WriteChar[CR]; 
Wri teString["Zap: "]; 
IODefs.ReadID[name]; 
IF name, length=0 THEN EXIT; 
StringDef s .AppendString[ filename, name]; 
CheckForExtension[ filename, " .bed"] ; 
file ^ NewFne[f ilename, Read+Write, OldFileOnly 
! Fi leNameError => 
BEGIN 

Wri teString[" IFile not found"]; 
GOTO repeatloop; 
END]; 
LoekFile[file]; 
DO ENABLE Rubout => 
BEGIN 

WriteString[" XXX"]; 
CONTINUE 
END; 
WriteChar[CR]; 

Wri teString["header , symbols, files, or quit? [H.S.F.Q] "]; 
IODefs.ReadIO[c]; Wri teChar[CR]; 
IF c. length = THEN EXIT 
ELSE SELECT cCO] FROM 

'h, 'H => ZapHeader[file]; 
•s.'S => ZapSymbols[f ile]; 
'f , 'F => ZapFiles[file]; 
•q, 'Q => EXIT; 
ENDCASE => WriteChar['?]; 
ENDLOOP; 

UnlockFile[rne]; 
Releasef i 1 e[f i 1 e] ; 
EXITS 

repeatloop => NULL; 
END; 

Wri teChar[CR]; 
fNDl OOP; 

ImageDef s . StopMesa[] ; 
FND. 



